home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 17
/
017.d81
/
magazine boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
645b
|
25 lines
10 POKE53281,2:POKE53280,2
15 PRINT"[158][147]"
20 PRINT" [215]ARNING!"
30 PRINT:PRINT
40 PRINT"[217]OU ARE ABOUT TO EXIT THE [204][207][193][196][211][212][193][210]"
50 PRINT:PRINT"ENVIRONMENT."
60 PRINT:PRINT"[208]RESS 1 TO RUN [205]AGAZINE [197]NTRY."
70 PRINT:PRINT"[208]RESS 2 TO RETURN TO [204]OADSTAR."
80 PRINT:PRINT"[215]HICH?"
90 GETK$:IFK$=""THENGOSUB60000:GOTO90
100 POKE53280,RND(1)*15
110 K=VAL(K$)
120 ONKGOTO62000,63000:GOTO90
60000 IFC=0THENC=1:GOTO60005
60002 C=0
60005 IFC=0THENPRINT" [215]ARNING!"
60010 IFC=1THENPRINT" [215]ARNING!"
60020 RETURN
62000 REMCONNECT TO ACTUAL ENTERY PGM
62002 PRINT"[147]LOAD"CHR$(34)"MAGAZINE ENTRY"CHR$(34)",8":PRINT"RUN"
62004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END
63000 REM CONNECT BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END